﻿Imports StartFrame.Web.BR
Imports StartFrame.BR.Web.Helpers

Namespace Mantenimiento.Empresas

    Public Class CategEnt
        Inherits JsonAbm

        ''' <summary>
        ''' Esta clase se encarga de la administración de los reportes o consultas contempladas por la aplicación.
        ''' </summary>
        ''' Constructor
        Sub New()
            MyBase.New(Operador, Password, "XRCategEnt", "App_categ_entidad")
            MyBase.lnk_nombreOperador = Common.Env.Operador
            'Graba tracking
            Me.lnk_Tracking = True
        End Sub

        Private Sub CategEnt_Validando(ByRef cancela As Boolean, ByRef paramDataTable As System.Data.DataTable) Handles Me.Validando
            Dim row As DataRow
            'Recorre todos los registros de la tabla
            For Each row In paramDataTable.Rows
                If row.RowState <> DataRowState.Deleted Then
                    'Valida campo obligatorio
                    If IsDBNull(row("descripcion")) OrElse row("descripcion").ToString = String.Empty Then
                        row.SetColumnError("descripcion", "La descripción del rubro es obligatoria.")
                        cancela = True
                    End If
                End If
            Next
        End Sub
    End Class

End Namespace
